CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swags_z.zip/STRINGS.SWG/0006_SPACES.PAS.pas

Pascal/Delphi Source File | 1993-05-28 | 615b | 36 lines

Function Spaces(NumSpaces : Byte) : String;

Var
  s : String;

begin
  s[0] := Chr(Numspaces);
  If NumSpaces = 0 Then
    Exit;
  FillChar(s[1], NumSpaces, ' ');
  Spaces := s;
end;

{
This still too slow For my taste, though...  there's a superfluous String
copy and it still needs 512 Bytes of stack space.
}

Function Spaces(NumSpaces : Byte) : String; Assembler;

Asm
  LES    DI, @Result
  CLD
  MOV    AL, NumSpaces
  xor    AH, AH
  STOSB
  XCHG   AX, CX
  JCXZ   @Exit
  MOV    AL, ' '
  SHR    CX, 1
  JNC    @Even
  STOSB
@Even:  REP    STOSW
@Exit:
end;  { Spaces }